home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / REFERENC / TPR / SOURCE.EXE / DEMORECU.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-07  |  399b  |  25 lines
  1. { DEMORECU.PAS }
  2. program DemoRecursion;
  3.  
  4. function Factorial ( n : real ) : real;
  5. begin
  6.   if n = 1 then
  7.     Factorial := 1
  8.   else
  9.     Factorial := N * Factorial ( N - 1.0 );
  10. end;
  11.  
  12. var
  13.   X : Real;
  14.  
  15. begin
  16.   Write('Enter a number:  ');
  17.   Readln( X );
  18.   Writeln;
  19.   Writeln('Factorial of ',X,' = ', Factorial ( X ) );
  20.   Writeln;
  21.   Write('Press Enter to finish.');
  22.   Readln;
  23. end.
  24.  
  25.